home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / shazam.exe / GSTRING.INT < prev    next >
Encoding:
Text File  |  1992-09-01  |  4.5 KB  |  75 lines
  1.    {*******************************************************************
  2.  
  3.    GSTRING.INT
  4.  
  5.    *******************************************************************}
  6.    {- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  7.    CASE
  8.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
  9. function IsBlank             ( S : string ) : boolean ;
  10. function StrDup              ( Ch : char ; Len : byte ) : string ;
  11. function StrUpCase           ( S : string ) : string ;
  12. function LoCase              ( Ch : char ) : char ;
  13. function StrLoCase           ( S : string ) : string ;
  14. function Capitalize          ( S : string ) : string ;
  15. function InitialCaps         ( S : string ) : string ;
  16. function PadLeft             ( S : string ; Ch : char ; Len : byte ) : string ;
  17. function PadRight            ( S : string ; Ch : char ; Len : byte ) : string ;
  18. function PutLeft             ( S : string ; Ch : char ; Count : byte ) : string ;
  19. function PutRight            ( S : string ; Ch : char ; Count : byte ) : string ;
  20. function DeletePos           ( S : string ; Start , Stop : integer ) : string ;
  21. function CopyPos             ( S : string ; Start , Stop : integer ) : string ;
  22. function Truncate            ( Source : string ; Index : byte ) : string ;
  23. function Match               ( SubStr , Target : string ) : integer ;
  24. function StrExist            ( SubStr , Target : string ) : boolean ;
  25. function StrCount            ( SubStr , S : string ) : integer ;
  26.    {- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  27.    EDIT
  28.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
  29. function TrimLeft            ( Source , SubStr : string ) : string ;
  30. function TrimRight           ( Source , SubStr : string ) : string ;
  31. function Trim                ( Source , SubStr : string ) : string ;
  32. function TrimPrefix          ( Source , SubStr : string ) : string ;
  33. function Pluck               ( S : string ; Index : byte ) : string ;
  34. function WordCount           ( S : string ) : byte ;
  35.    {- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  36.    SEARCH & REPLACE
  37.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
  38. function PosNext             ( Substr , Source : string ; Start : byte ) : byte ;
  39. function Extract             ( SubStr : string ; VAR Source : string ) : string ;
  40. function Replace             ( Source , Original , Replacement : string ) : string ;
  41. function ReplaceChar         ( S , CharSet , Replacement : string ) : string ;
  42. function FillBetween         ( S : string ; SearchCh , FillCh : char ) : string ;
  43. function CountCh             ( Ch : char ; S : string ) : byte ;
  44. function WideSpace           ( S : string ; Code : Char ; NewWidth : byte ) : string ;
  45. procedure ConvertLineDraw    ( VAR Ch : char ) ;
  46.    {- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  47.    PARAM/SWITCH
  48.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
  49. function CommandLineString   : string ;
  50. function ParameterString     : string ;
  51. function SwitchString        : string ;
  52. function IsSwitch            ( S : string ) : boolean ;
  53. function IsParam             ( S : string ) : boolean ;
  54.    {- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  55.    NAME
  56.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
  57. function ReplaceDir          ( FileSpec , Dir : string ) : string ;
  58. function ReplaceName         ( FileSpec , Name : string ) : string ;
  59. function ReplaceExt          ( FileSpec , Ext : string ; Force : boolean ) : string ;
  60. function DriveDir            ( FileSpec : string ) : string ;
  61. function NameOnly            ( FileSpec : string ) : string ;
  62. function ExtOnly             ( FileSpec : string ) : string ;
  63. function NameExt             ( FileSpec : string ) : string ;
  64. function DirOfDrive          ( B : byte ) : string ;
  65. function CalcName            ( FileName , Path : PathStr ) : PathStr ;
  66.    {- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  67.    FILE
  68.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
  69. function FileExist           ( Path : string ) : boolean ;
  70. function DirExist            ( DirName : string ) : boolean ;
  71. function FileErase           ( S : string ) : boolean ;
  72. function FileRename          ( OldName , NewName : string ) : boolean ;
  73. function RezExist            ( KeyString , FileName : string ) : boolean ;
  74. function GetName             ( S : PathStr ; MaxSize : byte ) : string ;
  75.